home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbsub10.arc
/
NUMDMO.ASC
< prev
next >
Wrap
Text File
|
1986-06-25
|
2KB
|
53 lines
' NUMDMO.ASC -- MSDOS QuickBASIC Numlock subroutine test 25 June 86
' by David L. Poskie (608) 274-9560
' 7118 Raymond Rd. Madison, WI 53719
' Please run any suggestions, corrections, additions, or changes by me.
' I can be messaged on all the major Madison, WI RBBS's.
GOTO Start
Rem $Include: 'KEY.SUB'
Rem $Include: 'OMNI.SUB'
Start:
' Print centered Text$, with top of frame at line 2.
X = 6 'Set the starting line
FG = 11 'Set the color of Text$
BG = 3 'Set the background color
MG = 0 'Set the color of sign frame
KeyCode = 8 'Set ASCII code of sign frame
Text$ = "Numlock subroutines demonstration"
GOSUB SignCenter
LOCATE 10 , 22
Text$ = "Please DON'T press the Numlock key !"
GOSUB Center
GOSUB GetKeyPress
CLS
GOSUB TestNumlock
LOCATE 12,30
Text$ = "Numlock is now "
GOSUB CenterStay
IF IsNumlock _
THEN PRINT "ON" _
ELSE PRINT "OFF"
GOSUB GetKeyPress
CLS
LOCATE 12 , 20
LINE INPUT "Please enter some of the numeric keypad keys "; Temp$
IF Numlock _
THEN GOSUB NumlockOff _
ELSE GOSUB NumlockOn
LOCATE 14,25
LINE INPUT "Now enter some more numeric keypad keys "; Temp$
Text$ = "This program has toggled your Numlock key"
GOSUB Center
IF Numlock _
THEN GOSUB NumlockOn _
ELSE GOSUB NumlockOff
PRINT
Text$ = "Numlock has been restored to its original setting"
GOSUB Center
Text$ = "End of demonstration "
GOSUB Center
SYSTEM
'>>>>> Physical EOF for NUMDMO.ASC 25 June 86